cervejas <-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
cervejas

summary(cervejas)

cervejas.t <- table(cervejas)
cervejas.t

barplot(sort(cervejas.t))

dotchart (cervejas.t)

#o grfico dotchart